(find-alternate-file): Check whether `dired-directory' is bound.

diff --git a/lisp/files.el b/lisp/files.el
index 070db9f3be440d95da9411b49c301f8b26b3af2b..5ba163fc67150b40f8659e1afd04eeb7c865ba64 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -940,7 +940,7 @@ If the current buffer now contains an empty file that you just visited
   (let ((obuf (current-buffer))
        (ofile buffer-file-name)
        (onum buffer-file-number)
-       (odir dired-directory)
+       (odir (bound-and-true-p dired-directory))
        (otrue buffer-file-truename)
        (oname (buffer-name)))
     (if (get-buffer " **lose**")